Option Explicit
Sub J_Sample021()
    Dim myRng As Range
    For Each myRng In Worksheets(1).Cells(1, 1).CurrentRegion
        Application.CommandBars(myRng.Value).Visible = True
    Next
    Set myRng = Nothing	'
End Sub
